home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 079c.dms / 079c.adf / ajc_source.lha / AJC / AJC-INTRO.AMOS / AJC-INTRO.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-26  |  1.9 KB  |  128 lines
  1. ' ---------------------------------
  2. ' BLACK DRAGON INTRODUCTION EXAMPLE  
  3. ' Coded By Andrew Campbell (c) 1994    
  4. ' ---------------------------------  
  5. '  
  6. ' An example of how to front your  
  7. ' productions in film-style. Yeah. 
  8. '    
  9. ' Music adapted from an old PD mod 
  10. ' by Andrew Campbell (yes! Cool!)  
  11. '
  12. ' ---------------------------------  
  13. ' AJ, I changed banks 50+51 to 14 15 so this would work on Amos classic  
  14. ' hope you don't mind? but it means virtually all our readers will get 
  15. ' to see this nice piece of code!
  16. '
  17. 'cheers, Steve 
  18. '
  19. COOLINTRO
  20. Edit 
  21.  
  22. Procedure COOLINTRO
  23.  
  24. Led Off 
  25. Track Play 14
  26.  
  27. A=$0
  28. Auto View Off 
  29. Default Palette A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A,A
  30. Screen Open 0,320,140,2,Lowres
  31. Curs Off : Flash Off : Hide On : Cls 0
  32. Screen Display 0,,90,,
  33.  
  34. Unpack 15 To 2
  35. Screen Hide 2
  36.  
  37. Screen Open 3,640,140,2,Lowres
  38. Curs Off : Flash Off : Hide On : Cls 0
  39. Screen Hide 3
  40.  
  41. Auto View On 
  42. View 
  43.  
  44. Wait 50
  45. Screen 0 : Fade 2,$4,$4
  46.  
  47. X=0 : Y=10 : M=1 : MM=0
  48. BX=160 : BY=60
  49. TMS=8
  50. MM=0
  51.  
  52. Do 
  53.  
  54.  Screen 3
  55.  Cls 0
  56.  
  57.  Inc MM
  58.  
  59.  Add M,2
  60.  
  61.  For I=0 To TMS
  62.   For J=1 To TMS
  63.    Screen 2
  64.    C=Point(X+I,Y+J)
  65.    Screen 3
  66.    If C>0
  67.     Ink C
  68.     BASEX=BX-(TMS*M)/2
  69.     BASEY=BY-(TMS*M)/2
  70.     Bar BASEX+(I*M),BASEY+(J*M) To BASEX+(I*M+M),BASEY+(J*M+M)
  71.    End If 
  72.   Next J
  73.  Next I
  74.  
  75.  Screen Copy 3 To 0
  76.  
  77.  Screen 0
  78.  If MM<2
  79.   Ink 1,0
  80.   Text 113,83,"BLACK DRAGON"
  81.   Fade 4,$4,$FFF
  82.   Wait 8*15
  83.   For SMEG=1 To 70
  84.    Ink 0,0
  85.    Text 113,82+SMEG,"BLACK DRAGON"
  86.    Ink 1,0
  87.    Text 113,83+SMEG,"BLACK DRAGON"
  88.    Wait Vbl 
  89.   Next SMEG
  90.  End If 
  91.  
  92.  If MM>81
  93.   Goto HELL
  94.  End If 
  95.  
  96. Loop 
  97.  
  98. HELL:
  99.  
  100.   Wait 10
  101.  
  102.   For I=1 To 160
  103.    Ink 1,0
  104.    Wait Vbl 
  105.    Text 41,150-I,"PRESENTS"
  106.   Next I
  107.  
  108.  
  109.   For I=1 To 140
  110.    Screen Copy 2,160,0,320,140 To 0,160,140-I
  111.    Wait Vbl 
  112.   Next I
  113.  
  114.   Wait 60
  115.   Ink 0
  116.  
  117.   For I=0 To 140/2
  118.    Draw 0,I To 320,I
  119.    Draw 0,140-I To 320,140-I
  120.    Wait Vbl 
  121.   Next 
  122.  
  123.   Fade 7
  124.   Wait 30*7
  125.   Screen Close 2
  126.   Screen Close 3
  127.  
  128. End Proc